﻿Public Class frmConsultar_Estudios
    Private Consulta_ordenes As New dOrden
    Private Sub frmConsultar_Estudios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cboBusquedaAvanzada.Items.Clear()
        cboBusquedaAvanzada.Items.Add("Fecha Solicitud")
        cboBusquedaAvanzada.Items.Add("Fecha Visita")
        cboBusquedaAvanzada.Items.Add("Fecha Entrega")
    End Sub

    Private Sub frmConsultar_Estudios_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

    End Sub

    Private Sub cmdBusquedaAvanzada_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBusquedaAvanzada.Click
        If frAvanzada.Visible = True Then
            frAvanzada.Visible = False
        Else
            frAvanzada.Visible = True
        End If
    End Sub

    Private Sub rbFecha_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbFecha.Click
        If rbFecha.Checked = True Then
            dtpFechaInicial.Enabled = True
            dtpFechaFinal.Enabled = True
            cboBusquedaAvanzada.Items.Clear()
            cboBusquedaAvanzada.Items.Add("Fecha Solicitud")
            cboBusquedaAvanzada.Items.Add("Fecha Visita")
            cboBusquedaAvanzada.Items.Add("Fecha Entrega")
        End If

    End Sub

    Private Sub rbEstado_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbEstado.Click
        If rbEstado.Checked = True Then
            dtpFechaInicial.Enabled = False
            dtpFechaFinal.Enabled = False
            cboBusquedaAvanzada.Items.Clear()
            cboBusquedaAvanzada.Items.Add("Activo")
            cboBusquedaAvanzada.Items.Add("Inactivo")
        End If
    End Sub

    Private Sub rbFecha_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbFecha.CheckedChanged

    End Sub

    Private Sub cmdEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnviar.Click
        Dim Resultado As DataSet
       
        If frAvanzada.Visible = False Then
            Resultado = Consulta_ordenes.ConsultarCriterio1(cboCriterio_Busqueda.Text, txtConsulta.Text)
            dgResultado_Consulta.DataSource = Resultado.Tables(0).DefaultView
        Else

            If rbEstado.Checked = True Then

                Resultado = Consulta_ordenes.ConsultarCriterio2(cboCriterio_Busqueda.Text, Mid(cboBusquedaAvanzada.Text, 1, 1), txtConsulta.Text)
                dgResultado_Consulta.DataSource = Resultado.Tables(0).DefaultView
            Else
                If rbFecha.Checked = True Then

                    Resultado = Consulta_ordenes.ConsultarCriterio3(cboCriterio_Busqueda.Text, cboBusquedaAvanzada.Text, txtConsulta.Text, dtpFechaInicial.Value, dtpFechaFinal.Value)
                    dgResultado_Consulta.DataSource = Resultado.Tables(0).DefaultView
                End If
            End If
        End If

    End Sub

    Private Sub Nuevo_Orden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nueva_Orden.Click

    End Sub

    Private Sub tsMenu_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles tsMenu.ItemClicked

        Select e.ClickedItem.Name
            Case "Nueva_Orden"
                Dim registro_orden As New frmOrden
                registro_orden.ShowDialog(Me)
            Case "Generar_Estudio"
                Dim registro_estudio As New frmEstudio
                registro_estudio.ShowDialog(Me)
            Case Else

        End Select
    End Sub
End Class